home *** CD-ROM | disk | FTP | other *** search
/ El Mac 1 / Magazine.iso / EL MAC 1 / Shareware / HyperCard / XCMD Docs / CompileIt! Source Code / DoRect() < prev    next >
Encoding:
Text File  |  1995-08-19  |  1.0 KB  |  26 lines  |  [TEXT/ttxt]
  1. global r1:R,r2:R,p1:L,p2:L
  2. function DoRect
  3.   PenPat gray
  4.   put openPicture(thePort@.portRect) into j
  5.   copyBits thePort@.portBits,thePort@.portBits,thePort@.portRect,thePort@.portRect,0,nil
  6.   closePicture
  7.   repeat until button() -- wait until button is pressed
  8.   end repeat
  9.   GetMouse p1 -- get mouse location without callback
  10.   put LoWord(p1) into pp1 -- put item 1 of loc into pp1
  11.   put HiWord(p1) into pp2 -- put item 1 of loc into pp1
  12.   repeat while Button() -- repeat while button is pressed
  13.     GetMouse p2 -- get mouse location without callback
  14.     if p1≠p2 then -- only redraw if we need to
  15.       SetRect r2,pp1,pp2,LoWord(p2),HiWord(p2) -- set rectangle for frameRect
  16.       DrawPicture j,thePort@.portRect -- redraw HC window
  17.       FrameRect r2 -- draw outline
  18.       put p2 into p1 -- set p1 to p2
  19.     end if
  20.   end repeat
  21.   DrawPicture j,ThePort@.portRect -- redraw HC window
  22.   KillPicture j
  23.   return r2.integerType[2] & "," & r2.integerType[1] & "," & r2.integerType[4] & "," & r2.integerType[3]
  24. PenPat black
  25. end DoRect
  26.